Group=Simple Deform
Name=Rȏk
Init=coord=-1;\nvTplane=1;\n?a,,0,100,100;\n?b,c,0,100,0;\n?k,%̃sNZ,0,1,0;\ncx=cy=0;\nif(k==0){\nif(a==0){\na=b;\n}\nif(b==0){\nb=a;\n}\na=int(0.5+xs*a/100)/xs;\nb=int(0.5+ys*b/100)/ys;\n} else {\nif(a==0){\na=int(xs*b/ys);\n}\nif(b==0){\nb=int(ys*a/xs);\n}\na=a/xs;\nb=b/ys;\n}\n\n_Fill(255,255,255);\n_FillT(0);\n\n
Prog=i1=0;\ni2=0;\nwhile(xs-1>=i1){\nwhile(b*(ys-1)>=i2){\nc=i2/b;\nd=(i2+1)/b;\ne=int(c);\nf=int(d);\nR=G=B=0;\nadd(i1,e,((e+1)-c+0.002));\ng4=T(i1,e)*((e+1)-c+0.002);\ne=e+1;\nwhile(d>=(e+1)){\n  add(i1,e,1);\n  g4=g4+T(i1,e);\n  e=e+1;\n}\nadd(i1,e,(d-f));\ng4=g4+(d-f)*T(i1,e);\nR=R*b;\nG=G*b;\nB=B*b;\nT=g4*b;\n_Pset(i1,i2);\n_Tset(i1,i2);\ni2=i2+1;\n}\ni1=i1+1;\ni2=0;\n}\n_Copy(-1);\n_Fill(255,255,255);\n_FillT(0);\ni1=0;\ni2=0;\nwhile(a*(xs-1)>=i1){\nwhile(b*(ys-1)>=i2){\nc=i1/a;\nd=(i1+1)/a;\ne=int(c);\nf=int(d);\nR=G=B=0;\nadd(e,i2,((e+1)-c+0.002));\ng4=T(e,i2)*((e+1)-c+0.002);\ne=e+1;\n  while(d>=(e+1)){\n  add(e,i2,1);\n  g4=g4+T(e,i2);\n  e=e+1;\n}\nadd(e,i2,(d-f));\ng4=g4+(d-f)*T(e,i2);\nR=R*a;\nG=G*a;\nB=B*a;\nT=g4*a;\n_Pset(i1,i2);\n_Tset(i1,i2);\ni2=i2+1;\n}\ni1=i1+1;\ni2=0;\n}\nexit(-1);